home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 40
/
64er_Magazin_Sonderheft_40_19xx_Markt__Technik_de.d64
/
listing 05.ki
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
6KB
|
122 lines
5 goto100
10 restore
20 fori=1ton:reads$:next
30 return
100 dims%(38),r%(38),n%(38)
110 n1=38:n2=12:n3=118
120 n=n1+n2+n3:gosub10
130 forx=1ton1
140 reads%(x),l:r%(x)=s%(x):n%(x)=s%(x)+l-1:next
160 print"hi, i am eliza tell me your problem
170 [133]i$:i$[178]" "[170]i$[170]" "
200 [129]l[178]1[164][195](i$)
210 [139][202](i$,l,1)[178]"'"[167]i$[178][200](i$,l[171]1)[170][201](i$,[195](i$)[171]l):[137]210
220 [130]
230 [139]i$[178]p$[167][153]"please don't repeat yourself":[137]170
280 [140]:s[178]0
300 [129]k[178]1[164]n1
305 [139]s[177]0[167]340
310 [135]k$
320 [129]a[178]1[164][195](i$)[171][195](k$)
325 [139][202](i$,a,[195](k$))[178]k$[167]s[178]k:t[178]a:f$[178]k$
330 [130]
340 a[178]0:[130]
365 [139]s[177]0[167]k[178]s:l[178]t:[137]400
370 k[178]n1:[137]560
400 n[178]n1
405 [141]10
410 c$[178]" "[170][201](i$,[195](i$)[171][195](f$)[171]l[170]1)
420 [129]x[178]1[164]n2[173]2:[135]s$,r$
440 [129]l[178]1[164][195](c$)
450 [139]l[170][195](s$)[177][195](c$)[167]510
480 [139][202](c$,l,[195](s$))[179][177]s$[167]510
490 c$[178][200](c$,l[171]1)[170]r$[170][201](c$,[195](c$)[171]l[171][195](s$)[170]1):l[178]l[170][195](r$)
500 [137]540
510 [139]l[170][195](r$)[177][195](c$)[167]540
520 [139][202](c$,l,[195](r$))[179][177]r$[167]540
530 c$[178][200](c$,l[171]1)[170]s$[170][201](c$,[195](c$)[171]l[171][195](r$)[170]1)
540 [130]:[130]
555 [139][202](c$,2,1)[178]" "[167]c$[178][201](c $,[195](c$)[171]1)
560 n[178]n1[170]n2
570 [141]10
580 [129]x[178]1[164]r%(k):[135]f$:[130]x
590 r%(k)[178]r%(k)[170]1:[139]r%(k)[177]n%(k)[167]r%(k)[178]s%(k)
600 [139][201](f$,1)[179][177]"*"[167][153]f$:p$[178]i$:[137]170
620 [153][200](f$,[195](f$)[171]1);c$:[137]170
1050 [131]"can you","can i","you are","youre","i dont","i feel","why dont you"
1060 [131]"why cant i","are you","i cant","i am","im ","you ","i want","what"
1070 [131]"how","who","where","when","why","name","cause","sorry","draem","hello"
1080 [131]"hi ","maybe"," no","your","always","think","alike","yes","friend"
1090 [131]"computer","eliza","money","nokeyfound"
1230 [131]" are "," am ","were ","was "," you "," i ","your ","my "," ive "
1235 [131]" youve "," im "," youre "
1330 [131]"don't you believe that i can*"
1340 [131]"perhaps you would like to be able to*"
1350 [131]"you want me to be able to*"
1360 [131]"perhaps you don't want to*","do you want to be able to*"
1365 [131]"what makes you think i am*","does it please you to believe i am*"
1390 [131]"perhaps you would like to be*"
1400 [131]"do you sometimes wish you were*"
1410 [131]"don't you really*","why don't you*","do you wish to be able to*"
1440 [131]"does that trouble you?","tell me more about such feelings."
1460 [131]"do you often feel*","do you enjoy feeling*"
1480 [131]"do you really believe i don't*","perhaps in good time i will*"
1500 [131]"do you want me to*","do you think you should be able to*"
1520 [131]"why can't you*","why are you interested in whether or not i am*"
1540 [131]"would you prefer if i where not*","perhaps in your fantasies i am*"
1560 [131]"how do you know you can't*","have you tried?","perhaps you can now*"
1590 [131]"did you come to me because you are*","how long have you been*"
1610 [131]"do you believe it is normal to be*","do you enjoy being*"
1630 [131]"we were discussing you-- not me.","oh, i*"
1650 [131]"you're not really talking about me, are you?"
1660 [131]"what would it mean to you if you got*","why do you want*"
1680 [131]"suppose you soon got*","what if you never got*"
1700 [131]"i sometimes also want*","why do you ask?"
1720 [131]"does that question interest you?"
1730 [131]"what answer would please you the most?"
1740 [131]"what do you think?","are such questions in your mind often?"
1760 [131]"what is that you really want to know?","have you asked anyone else?"
1780 [131]"have you asked such questions before?"
1790 [131]"what else comes to mind when you ask that?"
1800 [131]"names don't interest me.","i don't care about names-- please go on."
1820 [131]"is that the real reason?","don't any other reasons come to mind?"
1840 [131]"does that reason explain anything else"
1850 [131]"what other reasons might there be?","please don't apologize!"
1870 [131]"apologies are not necessary."
1880 [131]"what feelings do you have when you apologize?","don't be so defensive!"
1900 [131]"what does that dream suggest you?","do you dream often?"
1920 [131]"what persons appear in your dreams?","are you disturbed by your dreams?"
1940 [131]"how do you do ... plaese state your problem."
1950 [131]"you don't seem quite certain.","why the uncertain tone?"
1970 [131]"can't you be more positive?","you aren't sure?","don't you know?"
2000 [131]"why no*","don't say no it's always so negative","why not?"
2030 [131]"are you sure?","why no?","why are you concerned about my*"
2060 [131]"what about your own*","can't you think of a specific example?","when?"
2090 [131]"what are you thinking of?","really, always?"
2110 [131]"do you really think so?","but you are not sure you*"
2130 [131]"do you doubt you*","in what way?","what resemblance do you see?"
2160 [131]"what does the similarity suggest to you?"
2170 [131]"what other connections do you see?"
2180 [131]"could there really be some connections?","how?"
2200 [131]"you seem quite positive.","are you sure?","i see.","i understand."
2240 [131]"why do you bring up the topic of friends?","do your friends worry you?"
2260 [131]"do your friends pick on you?","are you sure you have any friends?"
2280 [131]"do you impose on your friends?"
2290 [131]"perhaps your love for friends worries you.","do computers worry you?"
2310 [131]"are you talking about me in particular?"
2320 [131]"are you frightened by machines?","why do you mention computers?"
2340 [131]"what do you think machines have to do with your problem?"
2350 [131]"don't you think computers can help people?"
2360 [131]"what is it about machines that worries you?"
2370 [131]"say, do you have any psychological problems?"
2380 [131]"what does that suggest to you","i see","i'm not sure i understand you."
2410 [131]"come come elucidate your thoughts","can you elaborate on that?"
2430 [131]"that is quite interesting.","why do you have problems with money?"
2450 [131]"do you think money is everything?"
2460 [131]"are you sure that money is the problem?"
2470 [131]"i think we want to talk about you, not about me","whats about me?"
2490 [131]"why do you always bring up my name?"
2530 [131]1,3,4,2,6,4,6,4,10,4,14,3,17,3,20,2,22,3,25,3,28,4,28,4,32,3,35,5,40,9
2540 [131]40,9,40,9,40,9,40,9,40,9,49,2,51,4,55,4,59,4,63,1,63,1,64,5,69,5,74,2
2550 [131]76,4,80,3,83,7,90,3,93,6,99,7,116,3,113,3,106,7